home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8506c.d64
/
scr 5
< prev
next >
Wrap
Text File
|
1995-03-30
|
259b
|
26 lines
: MLEN$
2 - @
;
: LEN$
DUP 1 -
BEGIN
1 + DUP
C@
0 =
UNTIL
SWAP -
;
: INPUT$
DUP DUP MLEN$
." :" EXPECT
1 -
BEGIN
1 + DUP C@
13 =
UNTIL
0 SWAP C! DROP
;
: PRINT$ DUP LEN$ TYPE ;